module Pointer where


data Pointer = Pointer Integer
               deriving (Eq, Ord)


instance Show Pointer where
    show (Pointer p) = show p ++ "*"


next :: Pointer -> Pointer
--------------------------
next (Pointer ptr) = Pointer (ptr + 1)


initialPointer :: Pointer
-------------------------
initialPointer = Pointer 0
